home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ Jun 89 / V0085-Inside Out and MacA-Jun89 < prev    next >
Encoding:
Text File  |  1989-07-12  |  1.5 KB  |  63 lines  |  [TEXT/GEOL]

  1. Item    1676108                         28-June-89        01:59
  2.  
  3. From:   CDA0004                         VAR Shana Enterprises, Don Murphy
  4.  
  5. To:     MACAPP.TECH$                    MACAPP Tech
  6.  
  7. Sub:    Inside Out and MacApp
  8.  
  9. Hello Everyone,
  10.  
  11. This note describes a new override for TApplication.GetEvent which should be
  12. used by anyone using Inside Out and MacApp.  The override described in the
  13. Inside Out 1.2 manual does not function correctly, losing lots of events and
  14. sending others on to cause various system errors.
  15.  
  16.  
  17. The following method is an override of TApplication.GetEvent which filters
  18. events through Inside Out's event mechanism before the rest of MacApp gets to
  19. see them:
  20.  
  21.  
  22. FUNCTION TMyApplication.GetEvent (eventMask : Integer; sleep : LongInt;
  23.     cursorRgn : RgnHandle; VAR anEvent : EventRecord) : Boolean;
  24. VAR
  25.   done : Boolean;
  26.  
  27. BEGIN
  28.  
  29.   { Inside Out only needs events to support its debug window. }
  30.   {$IFC qDebug }
  31.  
  32.   REPEAT
  33.     done := TRUE;
  34.     GetEvent := INHERITED GetEvent (eventMask,sleep,cursorRgn,anEvent);
  35.     IF ISOEvent (anEvent) THEN
  36.       done := FALSE;
  37.   UNTIL done;
  38.  
  39.   {$ELSEC}
  40.  
  41.   GetEvent := INHERITED GetEvent (eventMask,sleep,cursorRgn,anEvent);
  42.  
  43.   {$ENDC}
  44.  
  45.   { A good place to unload segments. }
  46.   DBUnloadSeg;
  47. END;
  48.  
  49.  
  50. This should fix any problems you may have been having with Inside Out's debug
  51. window, including lost events and even system errors.
  52.  
  53. Many thanks to Curt Faith for pointing this out and helping me resolve it.
  54.  
  55. Regards,
  56.  
  57. Wayne Malkin
  58. Proj Leader/IsO
  59. 27-Jun-89 11:10
  60.  
  61.  
  62.  
  63.